;;;QQ:67762207
[@]
{
#IF
#ACT
loadvalue D8 "ϵͳ.INI"  񸱱ʱ

#IF
large D8 %CURHOUR
#ACT
break
#SAY
<$OUTPUT(D8)>Сʱ񸱱.\\
<[   ]/@main>\

#IF
checkhum $00d717
#ACT
MOV D0 %P9

#IF
checkhum $01D717
#ACT
MOV D1 %P9

#IF
checkhum $02D717
#ACT
MOV D2 %P9

#IF
checkhum $03D717
#ACT
MOV D3 %P9
#if
#say
רΪĳҰ,ͨɸý׶.\
ÿ2СʱˢһҰ,ᱬκζ.ֻ.\
ÿֻһ˽,2һҪĻ,˫.\
еĳҰ©ˢ,߲еκ,оǷҪ.\
<һŸ/@goheizhufuben(1)> (<$OUTPUT(D0)>) ȡ10.\\
<Ÿ/@goheizhufuben(2)> (<$OUTPUT(D1)>) ȡ20.\\
<Ÿ/@goheizhufuben(3)> (<$OUTPUT(D2)>) ȡ30.\\
<ĺŸ/@goheizhufuben(4)> (<$OUTPUT(D3)>) ȡ40.\\
<뿪/@exit>

[@goheizhufuben()]
#if
#act
MOV D0 %ARG(1)

#IF
equal D0 1
checkhum $00d717 1
checkcmd checkuserjf 20
#act
actcmd SETUSERJF - 20 
map $00d717
break

#IF
equal D0 1
checkhum $00d717 0
checkcmd checkuserjf 10
#act
actcmd SETUSERJF - 10 
map $00d717
break

#IF
equal D0 2
checkhum $01d717 1
checkcmd checkuserjf 40
#act
actcmd SETUSERJF - 40 
map $01d717
break

#IF
equal D0 2
checkhum $01d717 0
checkcmd checkuserjf 20
#act
actcmd SETUSERJF - 20 
map $01d717
break

#IF
equal D0 3
checkhum $02d717 1
checkcmd checkuserjf 60
#act
actcmd SETUSERJF - 60 
map $02d717
break

#IF
equal D0 3
checkhum $02d717 0
checkcmd checkuserjf 30
#act
actcmd SETUSERJF - 30 
map $02d717
break

#IF
equal D0 4
checkhum $03d717 1
checkcmd checkuserjf 80
#act
actcmd SETUSERJF - 80 
map $03d717
break

#IF
equal D0 4
checkhum $03d717 0
checkcmd checkuserjf 40
#act
actcmd SETUSERJF - 40 
map $03d717
#elsesay
ԲĻֲ޷!\
<뿪/@exit>
}
;;;QQ:67762207
